:- consult('plUnit.pl').

max( A, B, A ) :- A > B, !.
max( _, B, B ).